Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/DISK_UTL/WINTIDY/MAINFORM.DFM/MAINFORM.txt

Text File | 1996-04-15 | 4KB | 171 lines

object Form1: TForm1
  Left = 199
  Top = 108
  Width = 542
  Height = 326
  Caption = 'Form1'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 282
    Align = alLeft
    TabOrder = 0
    OnResize = Panel1Resize
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 42
      Height = 13
      Caption = 'Directory'
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 24
      Width = 169
      Height = 153
      ItemHeight = 16
      TabOrder = 0
      OnChange = DirectoryListBox1Change
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 192
      Width = 169
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 1
    end
    object btnFind: TButton
      Left = 112
      Top = 240
      Width = 65
      Height = 25
      Hint = 'Click here to search the disk'
      Caption = 'Find'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnFindClick
    end
    object grpSeverity: TRadioGroup
      Left = 8
      Top = 216
      Width = 89
      Height = 57
      Caption = ' Files to find '
      TabOrder = 3
    end
    object btnNormal: TRadioButton
      Left = 16
      Top = 232
      Width = 73
      Height = 17
      Hint = 'Finds backup and other files that can be regenerated'
      Caption = 'Most files'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      TabStop = True
      OnClick = btnNormalClick
    end
    object btnExtra: TRadioButton
      Left = 16
      Top = 248
      Width = 73
      Height = 17
      Hint = 'Finds help .GID and .FTS (full text search) files'
      Caption = 'Extra files'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = btnExtraClick
    end
  end
  object Panel2: TPanel
    Left = 193
    Top = 0
    Width = 341
    Height = 282
    Align = alClient
    TabOrder = 1
    OnResize = Panel2Resize
    object Label1: TLabel
      Left = 72
      Top = 8
      Width = 33
      Height = 13
      Caption = 'Files....'
    end
    object lblSize: TLabel
      Left = 16
      Top = 8
      Width = 33
      Height = 13
      Caption = 'KBytes'
    end
    object ListBox1: TListBox
      Left = 16
      Top = 24
      Width = 313
      Height = 201
      ItemHeight = 13
      MultiSelect = True
      Sorted = True
      TabOrder = 0
      OnClick = ListBox1Click
    end
    object btnSelectAll: TButton
      Left = 16
      Top = 240
      Width = 73
      Height = 25
      Hint = 'Selects all the files listed, ready for deletion'
      Caption = 'Select All'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnSelectAllClick
    end
    object btnDelete: TButton
      Left = 136
      Top = 240
      Width = 73
      Height = 25
      Hint = 'Deletes the selected files'
      Caption = 'Delete'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnDeleteClick
    end
    object btnExit: TButton
      Left = 256
      Top = 240
      Width = 73
      Height = 25
      Caption = 'E&xit'
      Default = True
      TabOrder = 3
      OnClick = btnExitClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 282
    Width = 534
    Height = 17
    Panels = <>
    SimplePanel = True
  end
end